Top 10k strings from Bridge Player 2 (1983)(CP Software).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /
Back to the directory listing
3 x+fo,y+tw;e$
3 w=x+(j$(o,y)>j$(ol)
3 j$(op,x)=e$(x))
3 j$(op,tw)>"
3 j$(op)>j$(ol)
3 cd=tw*(t>on
3 a$(on)=("3"
3 (j$(o,x)=e$(x)
2 y$(fo,fo):
2 y$(a,tw)="5"
2 y$(a)="100"+
2 x+tw,y+tw;e$;
2 w=y+(j$(o,3
2 v$(x,y)>j$(ol,u)
2 t>fo;f$(tw);
2 on;"Hand no.";h;
2 nt+d(k)<23
2 j$(q,tw)>"
2 j$(or)<e$(y)
2 j$(o,y)>j$(ol,y)
2 j$(o,y)>a$(y))+(j$(o,3
2 j$(o,y)>a$(y)
2 j$(o,x)=e$(x)
2 j$(o,w)>a$(y)
2 j$(o)>j$(ol)
2 j$(m,a(m)):
2 j$(l)=j$(l,
2 h$(tw-a)<"1"
2 a(op-n+t))
2 a(l)=a(l)-on:
2 a$(y)>e$(fo)
2 a$(x)=s$(t)
2 a$(tw)=r$(t)
2 a$(tw)=" "
2 a$(on)=("P"
2 a$(on)=("6"
2 a$(on)="R"
2 a$(on)="N"
2 a$(on)="D"
2 PLAYER
2 ,ze;l$;l$;
2 ,y+on;e$;" ";e$;
2 ,y+on;e$;" ";e$:
2 +x,(y(k,x)+6
2 )>j$(ol,y)
2 (k-tw*(k>tw)):
2 R.Wheen 1984
1 zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzxxxzzzzxxxzzzzzzzxxzzzzzzzzzzzzzxzxzzzxzzxzzzzzzxxxxzzzzzzzzzzzzxzzzzzxzzxzzzzzzxxxzzzzzzzzzzzzzxzzzzzxzzxzzzzzzxzzzzzzzzzzzzzzzxzzzzzzxxxzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzxxzzzxxxxzzzzzzzzzzzzzzzzzzzzzzxxxxzzxxxxzzzzxxzzzzzzzzxxzzzzzzzzzxzzxxxzzzzxxxxzzzzzzxxxxzzzzzzxxzzzxzzzzzzxxxxzzzzzzxxxzzzzzzxzzzzzxzzzzzzxxxxzzzzzzxzzzzzzzzxxxxzzxzzzzzzzxxxzzzzzzzxxxzzzzzxxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxx8888888888888888888888888888888888888888888888888888888888888888
1 ze;" led. Enter ";(b$(k,
1 ze;" holding ");" ";
1 ze;" Please wait while the computer assesses and analyses the hands.":
1 ze;" ";(b$(k,
1 ze;" This is your hand as
1 ze,tw,st,fo,on,n,h,u,gg,o$,p$,n$,q$,r$,s$,t$,u$:
1 ze,f,f,f,f,f,f,f,p$
1 ze)+("E/W"
1 z>fo)+("4"
1 z=fo*y-fo+x:
1 z=a(op-n+t):
1 z(z);z$(z):
1 z(fo*j-fo+k)=f(v):
1 z$(fo*j-fo+k)=a$:
1 y>fo))*x+10
1 y=y(k,on):
1 y=x-(x>on):
1 y=k+x-v+fo*(v
1 y;" trick";"s"
1 y,z;(e$(on)
1 y)=j$(ol,x)+j$(op,x)
1 y)+j$(op,x)
1 y(n)=y(n)-30
1 y(n)=y(n)+fo*e+8
1 y(n)=y(n)+(f+10
1 y(n)=y(n)+(40
1 y(k-on+fo*(k=on),t)=y(k-on+fo*(k=on),t)-z:
1 y(k,t)=y(k,t)-z+1.4
1 y$(x)="0003":
1 y$(u)="0003":
1 y$(t-(t>fo),fo))=
1 y$(t-(t>fo),fo)
1 y$(t-(t>fo),
1 xy=((x-y)/5
1 x-on,v;j$(m,z);
1 x-on)+g$(x+on
1 x+tw,y+on;e$;" ";e$;
1 x+on,y+on;e$;" ";e$;
1 x+fo,y+on;e$;" ";e$:
1 w=x+(j$(o,y)>a$(y)):
1 w=e(on)*e(tw)*e(3
1 w-on)+j$(l,w+on
1 w$="AAAAAAAAAA":
1 v-on)+c$(b(w),v+on
1 v$(x,y)>j$(ol)
1 v$(w,tw)=c$(b(w),v)
1 v$(fo,tw):
1 u=e(w+on):
1 tw;"while the computer shuffles,"''
1 tw;"You have attempted to break intothis program: this is forbidden."''" The current deal has been"'
1 tw;"Rubber complete";
1 tw;"Dealer":
1 tw;"Congratulations";
1 tw*(e$(tw)="
1 tw)=j$(o,on)+j$(op,on))
1 t>fo;a$(tw):
1 t>fo)+e(b):
1 t>fo)+e(a):
1 t))+(j>12.6
1 st,ze;" Tricks ";
1 rd=(e$="2"):
1 p>tw)+s$(p):
1 p=(tv*r+10
1 p4=(e$="A"):
1 p4=(e$="4"):
1 p$=("Vul:none"
1 op=fo*k-fo+w-(w>fo):
1 on;ze,on-aa
1 on;"W, S, or V?"
1 on;"To make your choice press A or B"
1 on;"To continue press C":
1 on;"Revoke";
1 on;"Press P for print-out, R to re-"'"play last hand, N for next hand"
1 on;"Press 4 if you want to play all",
1 on;"PRESS A KEY";
1 on;"Dealer:";o$(d)'
1 on;"C or D?"
1 on;"Bidding to restart":
1 on;"1, 2 OR 3?";
1 o()=o+fo-st*(o>12
1 n<fo);s$(n);
1 m$>on)+(600
1 m$>"F")+(100
1 m$="J")+(200
1 m$="F")+(400
1 m$="E")+(300
1 l=g(on)+g(3
1 l<ze);" win by ";
1 l(x),tw)="
1 l(x),on)="
1 l(t)-(t>fo):
1 k=k+i-fo*(k+i>fo):
1 k1=k1+on-fo*(k1>tw)
1 k(k),t)=y(
1 k(k),t)-z:
1 k$(v,tw)="
1 k$(b-tw,on)="D")
1 k$(b-tw,on)="D"
1 k$(b-tw)>"D"
1 k$(b)="Pass":
1 k$(b)="P":
1 j(k),t)=y(
1 j(k),t)<fo
1 j(k),t)+z+(w$(t+5
1 j$(v)=j$(v+st):
1 j$(q,on)="
1 j$(or,y)>e$(fo))))
1 j$(or,x)>e$(fo)
1 j$(op,y)>e$(fo)
1 j$(op,y)>e$(5
1 j$(op,x)>e$(3
1 j$(op,tw)<"
1 j$(op,on)=e$(3
1 j$(op)>v$(x,y)
1 j$(op)>j$(o)))
1 j$(op)>j$(o)
1 j$(op)>a$(y)
1 j$(op)<j$(ol)))
1 j$(op)<j$(ol))
1 j$(op)<e$(y)
1 j$(op)<e$(on))
1 j$(op)<a$(y))
1 j$(op)<a$(y)
1 j$(ol,y)=e$(5
1 j$(ol,u)=" "
1 j$(ol)<e$(y)
1 j$(o,y)>j$(or)):
1 j$(o,y)>j$(ol)
1 j$(o,y)<e$(3
1 j$(o,x)>j$(or,y))
1 j$(o,x)=e$(y)
1 j$(o,x)<e$(y)
1 j$(o,w)>v$(x,y)
1 j$(o,w)>j$(ol,u)
1 j$(o,on)>e$(ao-(ao>on
1 j$(o+st)=j$(o):
1 j$(o+st)=e$:
1 j$(o)>j$(or)
1 j$(o)=d$(u):
1 j$(o)<e$(or+(j$(op)>j$(o)))
1 j$(o)<e$(6
1 j$(o)<e$(3
1 j$(m,y)>d$(n,fo)
1 j$(m,w)>v$(v-x,y)
1 j$(m,w)>j$(ol-n+t,on)
1 j$(m,w)<c$(t,x)
1 j$(l,w)=a$(tw)
1 j$(l+st)=j$(l):
1 j$(k,tw)="
1 j$(k,on)="
1 j$(c,y)=e$(x)
1 i+on);o$(p+w-fo*(p+w>fo));
1 i$="A")+(s$(n)
1 h$(tw-a,on)*5
1 h$(tw-a,fo)
1 h$(tw,fo):
1 h$(tw)=h$(on):
1 h$(on)="0000":
1 h$(a+on,fo)
1 h$(a+on)>"3"
1 h$(a+on)<"1"
1 gg>on)+("N/S game"
1 gg)+("Game all"
1 g(w+x);g(w+x)
1 g(fo+tw*gg))
1 g(fo+tw*gg)
1 g(c)=g(c)+p:
1 g(b)=g(b)+q
1 g(a)=g(a)+o:
1 g$=("1342"
1 g$="1234":
1 g$(w+on)=e$
1 g$(w)=g$(w+on):
1 fo;"Hand ";h'
1 fo,ze;"Contract"'r;
1 ffff)+(a$(tw)
1 f=tw)+y*100
1 f,g,i,j,l,aa,k1,rp,n$:
1 f(x);v$(x,on):
1 f(w);v$(w):
1 f(v)=tw*(u>on
1 f(v);a$(on):
1 f(on);(s$(n));
1 f$=f$+"x":
1 f$=a$(on)+u$(t)+("x"
1 f$(tw)=u$(t)
1 e=f+on+d(k)+(fo
1 e=e-d(k)+j
1 e=d(k)+(13
1 e(w+on)=u:
1 e(w)=e(w+on):
1 e(w)<e(w+on)
1 e$="W")+(15
1 e$="-----":
1 e$(y-on)=g$
1 e$(y-on)=e$(y)
1 e$(y)>e$(y-on)
1 e$(y)=e$(y-on):
1 e$(x)=t$(y):
1 e$(x)=q$(y)
1 e$(tw)>"3"
1 e$(tw)<"5"
1 e$(on)="P");
1 e$(fo)=e$(on))
1 e$(a)=g$(x)
1 de=fo)+(30
1 d=(a(ol)>ze)+(a(or)>ze):
1 d(k)=d(k)+c(k):
1 d(k)=d(k)+3
1 d$(x)=y$(x):
1 c=a+tw+tw*gg:
1 c4=(e$="4"):
1 c4=(e$="1"):
1 c,d;v$(x,tw);
1 c,d;a$(tw);
1 c+x,b;s$(x);:
1 c(k)=c(k)+
1 c$(t,y)=" ")
1 c$(b(w))=c$(b(w),
1 bi=(e$="C"):
1 b(x)=b(x)-a(
1 a=de-tw*(de>tw):
1 a=(j-g+r>7
1 a(v)=a(v+st):
1 a(or-n+t-(t>fo))
1 a(or-n+t))):
1 a(or)+a(ol)>x
1 a(op)>tw)))+"2
1 a(op)>a(or)
1 a(op)>a(ol))
1 a(op)<a(o)
1 a(op)+a(or)
1 a(ol-n+t-(t>fo))+a(or-n+t-(t>fo)))
1 a(ol-n+t-(t>fo)))
1 a(ol-n+t)))+(60
1 a(ol)+a(or)
1 a(ol)+(v=fo))
1 a(ol))+(50
1 a(o+st)=a(o):
1 a(o)=b(u):
1 a(o)=(a(op)>x)
1 a(l+st)=a(l):
1 a$=r$(t)+j$(m,w):
1 a$=r$(n)+j$(o,w):
1 a$=("4"+s$(t)
1 a$="Rdbl":
1 a$="Pass":
1 a$="Dble":
1 a$="6"+s$(fo-k1):
1 a$="5"+s$(fo-(j-
1 a$="3"+s$(p):
1 a$="2"+s$(t):
1 a$="2"+s$(p):
1 a$="1"+s$(p):
1 a$="1"+s$(n):
1 a$(y)>j$(o)
1 a$(y)>e$(6
1 a$(y)=e$(fo)
1 a$(y)<e$(5
1 a$(x)=f$(y)
1 a$(tw)>"1"
1 a$(tw)=u$(z):
1 a$(tw)=u$(y)
1 a$(tw)=u$(t)
1 a$(tw)=t$(w):
1 a$(tw)=t$(w)
1 a$(tw)=s$(t):
1 a$(tw)=q$(w)
1 a$(tw)=j$(l,a(l)):
1 a$(tw)=f$(tw)
1 a$(tw)=a$:
1 a$(tw)=(s$(z)
1 a$(tw)=((s$(p)
1 a$(tw)="P")+
1 a$(tw)+200
1 a$(on)=s$(u):
1 a$(on)=s$(u)
1 a$(on)=s$(n):
1 a$(on)=r$(u)
1 a$(on)=q$(x)
1 a$(on)=("4"
1 a$(on)=("1"
1 a$(on)="P"
1 a$(on)="O"
1 a$(on)="B"
1 a$(on)-on:
1 a$(on)+k$(b-on,on)+k$(b-tw,on)
1 a$(fo)="X"):
1 North5East 4South5West 4G
1 Ffff)+("6"
1 BRIDGE2
1 AAA1AAAAAA
1 @```````BBC ' P
1 @@@@@@@@F(
1 ;l$;l$;l$;
1 ;k$(v,on);"N"
1 ;j$(m,a(m)):
1 ;j$(l,w);" ";:
1 ;"without penalty ";
1 ;"with ";y;" overtrick";"s"
1 ;"points":
1 ;"for hand no.";h:
1 ;"exactly"
1 ;"erased. To restart";
1 ;"deals and sorts the cards"''
1 ;"by R.Wheen
1 ;"You have left West with a ";a(o);'" card suit, which is too long."'''" Enter entire hand again.":
1 ;"Variable no trump ?",,,,,
1 ;"Uxbridge"'
1 ;"Strong (15-17) or",,,
1 ;"South's hands"''
1 ;"Slam bid and made"
1 ;"Please wait a moment":
1 ;"Please wait a few moments"''
1 ;"Middx UB8 2RD"
1 ;"LOADING";
1 ;"Enter his hand again. ":
1 ;"CP Software";
1 ;"Bidding";
1 ;"BRIDGE PLAYER 2";
1 ;"4 hands. Otherwise press 2. ":
1 ;"4 - to see all 4 hands":
1 ;"2, Glebe Road";
1 ;"1 or 2?";
1 ;"-------"'':
1 ;"- B to rebid it first",:
1 ;"(honours scored)"
1 ;" by ";o$(de);
1 ;" You have attempted to break into the program, which is forbidden. Rewind your tape and re-load the entire program.":
1 ;" ";j$(o,x);:
1 ;" ":
1 98765432","
1 98542 94
1 98
1 8 9
1 76 73
1 76
1 63 9
1 54 85
1 432123456789
1 3333*(w$(t+5
1 3
1 0003000300031001
1 -st*(o>fo)
1 -a(ol)-a(or))*(10
1 -(t>fo);r;
1 ,ze;l$;l$:
1 ,ze;"to play a Weak (12-14),",,,
1 ,ze;"Press - P to replay the hand";
1 ,ze;"N/S E/W";
1 ,ze;"A - to play the cards from all 4 hands ?",,,,"B - to let the computer play the defender's cards ?",,,,
1 ,ze;"1 - to see all four hands ?",,,"2 - to see merely those of Northand South ?",,,,,,
1 ,ze;"1 - N/S (your side) always to have more points than E/W ?",,,"2 - N/S usually (but not always) to have more points than E/W ?",,,"3 - randomly dealt hands ?",,,
1 ,ze;" You have given ";b$(k,
1 ,ze;" ****** ";
1 ,ze;" ";g;
1 ,ze,,,,"C - to bid and play the hands ?",,,"D - merely to play the cards ?",,,,,,,,,,,
1 ,tw;"2 - to see only North's and";
1 ,on;"N/S E/W":
1 ,on;" Do you want:-",,,,,,"A - the computer to deal the"," cards ? or",,,,"B - to input a deal of your own choosing ?",,,,,,
1 ,h,h,"NESW","Vul:none",p$,"AKQJT","SHDCN","
1 +tw*gg))+(" E/W "+
1 +fo*(t>fo)):
1 +a+tw*gg):
1 *os-x/tw,124
1 *(y>fo)>96
1 *(u=t))*(u=t
1 *(t>fo)+g(3
1 *(t>fo))*(f-(f<fo)):
1 *(k=tw);"?"
1 *(k=tw)-10
1 *(f-tw)+(tv*y
1 *(f-tw)*(on+g(a+8
1 *(e$="1"):
1 *(de=tw)-5
1 *(de=tw)+5
1 *(de=on),13
1 *(de=fo);"
1 )>j$(or,y)
1 )>h$(tw-a,3
1 )=x+tw-fo*(x>tw):
1 )=x+on-fo*(x
1 )=j$(ol,x)+j$(op,x)
1 )=j$(o,x)+v$(x,y)+j$(op,x)
1 )=fo*k-fo+x:
1 )="X")+("x"
1 )-tw*(y=on):
1 )-tw*(k=on):
1 )-tw*(k=on),15
1 )-g(tw)-g(fo)-g(6
1 ));"'s card ";
1 ));" ";(p);" cards.";
1 ))+("E/W game"
1 ))+("2134"
1 ))+(" N/S "+
1 ))+"1243":
1 )));" to play. Enter card ";
1 )));" to play again";
1 (v$(x,y)>a$(y)
1 (r+(f$(tw)>a$(tw))+(d(k)>9
1 (on+(z=t)+(j>10.4
1 (on+(j>14.4
1 (k$(b-tw)>"E"
1 (j$(or,x)=e$(fo)
1 (j$(op,y)>j$(or)
1 (j$(op,tw)>"
1 (j$(op)<j$(or)
1 (j$(op)<j$(ol,y)
1 (j$(op)<e$(t)
1 (j$(op)<a$(y)
1 (j$(ol,y)=e$(fo)
1 (j$(ol)<e$(y)
1 (j$(ol)<e$(fo)
1 (j$(o,y)>a$(y)
1 (j$(o,x)=e$(x))
1 (j$(o,w)>a$(y)
1 (j$(o,on)=e$(on)
1 (j$(o)<j$(or)
1 (j$(m)<v$(3
1 (c+tw))/fo:
1 (a=(j-g+r>7
1 (a(o)+a(op)>y+a(or)+a(ol)
1 ((v$(x,y)>j$(ol,y)
1 ((a=(j-g+r
1 ''''"This routine was written by F.A.Vachha and is included by kind permission of:-"''
1 ''"Press"''" R - to review last hand"''" N - to go on to next hand"''" O - for list of options"
1 "Your bid? ";
1 "You have entered the same card twice. Enter suit again. ";
1 "Maximum holding in one suit is 8cards. Enter suit again. ";
1 "Enter declarer ";"(N or S only) "
1 "Enter contract ";("(which need not be the same as before) "
1 "Enter ";(b$(k,
1 "BRIDGE II"
1 ",e$,g$,e$,g$,e$,g$,"
1 ","North5","East 4","South5","West 4"
1 ")-tw*(e$="
1 ")+(e$(tw)
1 " defeated";
1 " ";j$(y+x,w);:
1 R.Wheen":
1 t
1 O
1
1
1
1
1
1
1